home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / XDME / Src / command.c < prev    next >
C/C++ Source or Header  |  1996-09-26  |  36KB  |  1,188 lines
  1. /******************************************************************************
  2.  
  3.     MODUL
  4.     command.c
  5.  
  6.     DESCRIPTION
  7.     )c          single character (typing)
  8.     'c                single character (typing)
  9.     `string'          string of characters w/ embedded `' allowed!
  10.     (string)             same thing w/ embedded () allowed!
  11.     \c          override
  12.  
  13.     name arg arg      command name. The arguments are interpreted as
  14.               strings for the command.
  15.  
  16.     $scanf          macro insert scanf'd variable
  17.     $filename      macro insert current file name with the complete path
  18.     $file          macro insert current name filename
  19.     $path          macro insert complete path of current file
  20.     $currentdir      macro insert the base dir of XDME
  21.     $currentline      macro insert entire contents of current line
  22.     $colno          macro insert column number of cursor
  23.     $lineno       macro insert line number of cursor
  24.     $margin       macro insert current margin setting
  25.     $modified      macro insert 0/1 modified flag
  26.     $rexxport      macro insert rexx port name
  27.  
  28.     Any string arguments not part of a command are considered to be typed
  29.     text.
  30.  
  31.     NOTES
  32.  
  33.     BUGS
  34.  
  35.     TODO
  36.  
  37.     EXAMPLES
  38.  
  39.     SEE ALSO
  40.  
  41.     INDEX
  42.  
  43.     HISTORY
  44.     06. Dec 1992    ada created
  45.  
  46. ******************************************************************************/
  47.  
  48. /**************************************
  49.         Includes
  50. **************************************/
  51. #include "defs.h"
  52.  
  53.  
  54. /**************************************
  55.         Globale Variable
  56. **************************************/
  57. Prototype int     do_command   (char *);
  58. Prototype void     do_null      (void);
  59. Prototype void     do_source    (long);
  60. Prototype void     do_quit      (void);
  61. Prototype void     do_quitall   (void);
  62. Prototype void     do_execute   (void);
  63. Prototype char * breakout     (char **, char *, char **);
  64.  
  65. extern int foundcmd;       /* control for implicit ARexx macro invocation   */
  66. extern int cmderr;       /* global command error flag for do_rexx()'s use */
  67.  
  68.  
  69. /**************************************
  70.       Interne Defines & Strukturen
  71. **************************************/
  72. #define CF_COK    1   /*    Can be executed while in command line mode    */
  73. #define CF_PAR    2   /*    ESCIMM special flag.. save rest of command line */
  74.             /*    so it can be executed after user entry        */
  75. #define CF_ICO    4   /*    OK to execute if iconified, else uniconify first*/
  76. #define CF_VWM    8   /*    OK to execute if in viewmode, else abort    */
  77.  
  78. #define BTOCP(val, type)    ((type)((long)val << 2))
  79.  
  80. typedef void (*FPTR)(long);
  81.  
  82. typedef struct
  83. {
  84.     const char * name;    /* command name     */
  85.     UBYTE args;     /* number of arguments    */
  86.     UBYTE flags;    /* flags        */
  87.     FPTR func;        /* c-function        */
  88. } COMM;
  89.  
  90. #define MAXIA        5
  91.  
  92.  
  93. /**************************************
  94.         Interne Variable
  95. **************************************/
  96.         /*      args         flags      */
  97.  
  98. static CONST COMM Comm[] =
  99. {
  100.     "abort",         0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_abort,
  101.     "activatefront", 1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_activefront,
  102.     "add",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  103.     "addpath",       1,        CF_VWM|CF_ICO, (FPTR)do_addpath,
  104.     "appendsave",    1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_appendsave,
  105.     "arpfont",       0,               CF_VWM, (FPTR)do_aslfont,
  106.     "arpinsfile",    0,                    0, (FPTR)do_aslinsfile,
  107.     "arpload",       0,               CF_VWM, (FPTR)do_aslload,
  108.     "arpsave",       0,        CF_VWM|CF_ICO, (FPTR)do_aslsave,
  109.     "autoindent",    1,        CF_VWM|CF_ICO, (FPTR)do_autoindent,
  110.     "autosplit",     1,        CF_VWM|CF_ICO, (FPTR)do_autosplit,
  111.     "autounblock",   1,        CF_VWM|CF_ICO, (FPTR)do_autounblock,
  112.     "back",          0,               CF_COK, (FPTR)do_bs,
  113.     "backtab",       0,        CF_VWM|CF_COK, (FPTR)do_backtab,
  114.     "bappendsave",   1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_bappendsave,
  115.     "barpsave",      0,        CF_VWM|CF_ICO, (FPTR)do_barpsave,
  116.     "bbpen",         1,               CF_VWM, (FPTR)do_bbpen,
  117.     "bcopy",         0,                    0, (FPTR)do_bcopy,
  118.     "bdelete",       0,                    0, (FPTR)do_bdelete,
  119.     "bend",          0,               CF_VWM, (FPTR)do_block,    /* checks com name for mode */
  120.     "bgpen",         1,               CF_VWM, (FPTR)do_bgpen,
  121.     "block",         0,               CF_VWM, (FPTR)do_block,    /* checks com name for mode */
  122.     "blocktype",     1,               CF_VWM, (FPTR)do_blocktype,
  123.     "bmove",         0,                    0, (FPTR)do_bmove,
  124.     "bottom",        0,               CF_VWM, (FPTR)do_bottom,
  125.     "break",         0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_break,
  126.     "bs",            0,               CF_COK, (FPTR)do_bs,
  127.     "bsave",         1,        CF_VWM|CF_ICO, (FPTR)do_bsave,
  128.     "bsource",       0,        CF_VWM|CF_ICO, (FPTR)do_bsource,
  129.     "bstart",        0,               CF_VWM, (FPTR)do_block,    /* checks com name for mode */
  130.     "cd",            1,        CF_VWM|CF_ICO, (FPTR)do_cd,
  131.     "chfilename",    1,        CF_VWM|CF_ICO, (FPTR)do_chfilename,
  132.     "clipins",       0,               CF_COK, (FPTR)do_clipins,
  133.     "col",           1,        CF_VWM|CF_COK, (FPTR)do_col,
  134.     "continue",      0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_continue,
  135.     "copy",          0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_copy,
  136.     "ctags",         0,               CF_VWM, (FPTR)do_ctags,
  137.     "debug",         1,        CF_VWM|CF_ICO, (FPTR)do_debug,
  138.     "dec",           1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  139.     "del",           0,               CF_COK, (FPTR)do_bs,
  140.     "delete",        0,               CF_COK, (FPTR)do_delete,
  141.     "deline",        0,                    0, (FPTR)do_deline,
  142.     "delines",       1,                    0, (FPTR)do_delines,
  143.     "div",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  144.     "down",          0,        CF_VWM|CF_COK, (FPTR)do_down,
  145.     "downadd",       0,                    0, (FPTR)do_downadd,
  146.     "esc",           0,        CF_VWM|CF_COK, (FPTR)do_esc,
  147.     "escimm",        1,        CF_VWM|CF_PAR, (FPTR)do_esc,
  148.     "eval",          1,        CF_VWM|CF_COK, (FPTR)do_eval,
  149.     "execute",       1,        CF_VWM|CF_ICO, (FPTR)do_execute,
  150.     "fgpen",         1,               CF_VWM, (FPTR)do_fgpen,
  151. #ifdef PATCH_FILTER
  152.     "filter",        4, CF_VWM|CF_COK|CF_PAR, (FPTR)do_filter,
  153. #endif
  154.     "find",          1,               CF_VWM, (FPTR)do_find,     /* checks com name for mode */
  155.     "findr",         2,                    0, (FPTR)do_findr,    /* checks com name for mode */
  156.     "findstr",       1,               CF_VWM, (FPTR)do_findstr,  /* checks com name for mode */
  157.     "first",         0,        CF_VWM|CF_COK, (FPTR)do_firstcolumn,
  158.     "firstnb",       0,        CF_VWM|CF_COK, (FPTR)do_firstnb,
  159.     "followcursor",  1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_followcursor,
  160.     "force",         2,        CF_VWM|CF_COK, (FPTR)do_force,
  161.     "global",        1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_global,
  162.     "goto",          1,               CF_VWM, (FPTR)do_goto,
  163.     "hgpen",         1,               CF_VWM, (FPTR)do_hgpen,
  164.     "iconify",       0,        CF_VWM|CF_ICO, (FPTR)do_iconify,
  165.     "if",            2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_if,
  166.     "ifelse",        3, CF_VWM|CF_COK|CF_ICO, (FPTR)do_if,
  167.     "ignorecase",    1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_ignorecase,
  168.     "inc",           1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  169.     "indent",        2,                    0, (FPTR)do_indent,
  170.     "infixmode",     1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_infixmode,
  171.     "insert",        1,               CF_COK, (FPTR)do_insertwrite,
  172.     "insertmode",    1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_insertmode,
  173.     "insfile",       1,                    0, (FPTR)do_edit,
  174.     "insline",       0,                    0, (FPTR)do_insline,
  175.     "inslines",      1,                    0, (FPTR)do_inslines,
  176.     "join",          0,                    0, (FPTR)do_join,
  177.     "justify",       1,                    0, (FPTR)do_justify,
  178.     "keyload",       1,        CF_VWM|CF_ICO, (FPTR)do_keyload, /* tester */
  179.     "keysave",       1,        CF_VWM|CF_ICO, (FPTR)do_keysave, /* tester */
  180.     "last",          0,        CF_VWM|CF_COK, (FPTR)do_lastcolumn,
  181.     "left",          0,        CF_VWM|CF_COK, (FPTR)do_left,
  182.     "lineblock",     0,        CF_VWM|CF_ICO, (FPTR)do_block,
  183.     "macroload",     1,        CF_VWM|CF_ICO, (FPTR)do_macroload, /* tester */
  184.     "macrosave",     1,        CF_VWM|CF_ICO, (FPTR)do_macrosave, /* tester */
  185.     "makecursorvisible", 0,    CF_VWM|CF_COK, (FPTR)do_makecursorvisible,
  186.     "map",           2,        CF_VWM|CF_ICO, (FPTR)do_map,
  187.     "margin",        1,        CF_VWM|CF_ICO, (FPTR)do_margin,
  188.     "match",         0,        CF_VWM|CF_COK, (FPTR)do_match,
  189.     "math1",         2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unnamedmathfunc,
  190.     "math2",         3, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unnamedmathfunc,
  191.     "menuadd",       3,        CF_VWM|CF_ICO, (FPTR)do_itemadd,
  192.     "menubar",       1,        CF_VWM|CF_ICO, (FPTR)do_itembar,
  193.     "menucheck",     3,        CF_VWM|CF_ICO, (FPTR)do_itemcheck,
  194.     "menuclear",     0,        CF_VWM|CF_ICO, (FPTR)do_menuclear,
  195.     "menudel",       2,        CF_VWM|CF_ICO, (FPTR)do_delitem,
  196.     "menudelbar",    1,        CF_VWM|CF_ICO, (FPTR)do_delitembar,
  197.     "menudelhdr",    1,        CF_VWM|CF_ICO, (FPTR)do_delmenu,
  198.     "menudelsub",    3,        CF_VWM|CF_ICO, (FPTR)do_delsub,
  199.     "menudelsubar",  2,        CF_VWM|CF_ICO, (FPTR)do_delsubbar,
  200.     "menugetcheck",  3,        CF_VWM|CF_ICO, (FPTR)do_getcheckitem,
  201.     "menugetscheck", 4,        CF_VWM|CF_ICO, (FPTR)do_getchecksub,
  202.     "menuload",      1,        CF_VWM|CF_ICO, (FPTR)do_menuload, /* tester */
  203.     "menuoff",       0,        CF_VWM|CF_ICO, (FPTR)do_menuoff,
  204.     "menuon",        0,        CF_VWM|CF_ICO, (FPTR)do_menuon,
  205.     "menusave",      1,        CF_VWM|CF_ICO, (FPTR)do_menusave, /* tester */
  206.     "menusetcheck",  3,        CF_VWM|CF_ICO, (FPTR)do_setcheckitem,
  207.     "menusetscheck", 4,        CF_VWM|CF_ICO, (FPTR)do_setchecksub,
  208.     "menusubadd",    4,        CF_VWM|CF_ICO, (FPTR)do_subadd,
  209.     "menusubbar",    2,        CF_VWM|CF_ICO, (FPTR)do_subbar,
  210.     "menusubcheck",  4,        CF_VWM|CF_ICO, (FPTR)do_subcheck,
  211.     "mod",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  212.     "modified",      1,               CF_ICO, (FPTR)do_modified,
  213.     "mul",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  214.     "neg",           1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  215.     "newfile",       1,               CF_VWM, (FPTR)do_edit,   /* checks com name for mode */
  216.     "newkeytable",   1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_new_keytable,
  217.     "newmenustrip",  1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_new_menustrip,
  218.     "newwindow",     0,        CF_VWM|CF_ICO, (FPTR)do_newwindow,
  219.     "next",          0,               CF_VWM, (FPTR)do_find,
  220.     "nextr",         0,                    0, (FPTR)do_findr,
  221.     "not",           1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  222.     "null",          0,        CF_VWM|CF_COK, (FPTR)do_null,
  223.     "openwindow",    1,        CF_VWM|CF_ICO, (FPTR)do_openwindow,
  224.     "overwrite",     1,               CF_COK, (FPTR)do_insertwrite,
  225.     "pagedown",      0,               CF_VWM, (FPTR)do_page,
  226.     "pageleft",      0,               CF_VWM, (FPTR)do_page,
  227.     "pageright",     0,               CF_VWM, (FPTR)do_page,
  228.     "pageset",       1,        CF_VWM|CF_ICO, (FPTR)do_page,
  229.     "pageup",        0,               CF_VWM, (FPTR)do_page,
  230.     "pattern",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_pattern,
  231.     "peek",          1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_pop,
  232.     "pickvar",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_pickVAR,
  233.     "ping",          1,        CF_VWM|CF_ICO, (FPTR)do_ping,
  234.     "pong",          1,               CF_VWM, (FPTR)do_pong,
  235.     "pop",           1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_pop,
  236.     "popvar",        1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_popVAR,
  237.     "port",          2,        CF_VWM|CF_ICO, (FPTR)to_port,          /* HD Rexx */
  238.     "prev",          0,               CF_VWM, (FPTR)do_find,
  239.     "prevr",         0,                    0, (FPTR)do_findr,
  240.     "projectinfo",   0,        CF_VWM|CF_ICO, (FPTR)project_info,     /* HD */
  241.     "projectload",   0,        CF_VWM|CF_ICO, (FPTR)load_project,     /* HD */
  242.     "projectsave",   0,        CF_VWM|CF_ICO, (FPTR)save_project,     /* HD */
  243.     "pubscreen",     1,        CF_VWM|CF_ICO, (FPTR)set_pubscreen,
  244.     "purgevar",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_purgeVAR,
  245.     "push",          1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_push,
  246.     "pushvar",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_pushVAR,
  247.     "qualifier",     1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_qualifier,
  248.     "quiet",         1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_quiet,
  249.     "quit",          0,        CF_VWM|CF_ICO, (FPTR)do_quit,
  250.     "quitall",       0,        CF_VWM|CF_ICO, (FPTR)do_quitall,
  251.     "recall",        0,               CF_VWM, (FPTR)do_recall,
  252.     "recend",        0, CF_VWM|CF_ICO|CF_COK, (FPTR)end_recording, /* it is recommended to end a record by pressing Ctl-C */
  253.     "recplay",       0, CF_VWM|CF_ICO|CF_COK, (FPTR)replay_record,
  254.     "recsave",       1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_saverecord,
  255.     "recstart",      0, CF_VWM|CF_ICO|CF_COK, (FPTR)start_recording,
  256.     "redisplay",     0,               CF_VWM, (FPTR)do_redisplay,
  257.     "ref",           0,        CF_VWM|CF_ICO, (FPTR)do_refs,
  258.     "refctags",      0,        CF_VWM|CF_ICO, (FPTR)do_refctags,
  259.     "reformat",      0,                    0, (FPTR)do_reformat,
  260.     "rem",           1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_null,    /* comments in lines */
  261.     "remeol",        0,        CF_VWM|CF_COK, (FPTR)do_remeol,
  262.     "remkeytable",   1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_del_keytable,
  263.  /* "remmenustrip",  1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_del_menustrip, */ /* that function is not stable yet */
  264.     "rempath",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_rempath,
  265.     "repeat",        2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_repeat,
  266.     "replace",       0,                    0, (FPTR)do_replace,
  267.     "repstr",        1,        CF_VWM|CF_ICO, (FPTR)do_findstr,
  268.     "reqfont",       0,               CF_VWM, (FPTR)do_reqfont,
  269.     "reqinsfile",    0,                    0, (FPTR)do_reqinsfile,
  270.     "reqload",       0,               CF_VWM, (FPTR)do_reqload,
  271.     "reqsave",       0,        CF_VWM|CF_ICO, (FPTR)do_reqsave,
  272.     "resettoggle",   1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_toggle,
  273.     "resize",        2,               CF_VWM, (FPTR)do_resize,
  274.     "ret",           0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_retmacro,
  275.     "return",        0,               CF_COK, (FPTR)do_return,   /* special meaning in command line mode */
  276.     "right",         0,        CF_VWM|CF_COK, (FPTR)do_right,
  277.     "rx",            1,        CF_VWM|CF_ICO, (FPTR)do_rx,       /* explicit ARexx macro invocation      */
  278.     "rx1",           2,        CF_VWM|CF_ICO, (FPTR)do_rx1,      /* explicit, with 1 arg  to ARexx macro */
  279.     "rx2",           3,        CF_VWM|CF_ICO, (FPTR)do_rx2,      /* explicit, with 2 args to ARexx macro */
  280.     "rxresult",      1,        CF_VWM|CF_ICO, (FPTR)put_rexx_result,
  281. #ifdef PATCH_RXVARS
  282.     "rxset",         2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_setrexx,      /* explicit, with 1 arg  to ARexx macro */
  283. #endif /* PATCH_RXVARS */
  284.     "saveas",        1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_saveas,
  285.     "saveconfig",    0, CF_VWM|CF_COK|CF_ICO, (FPTR)do_saveconfig,
  286. //  "savemap",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_savemap,         /* checks com name for mode */
  287.     "saveold",       0, CF_VWM|CF_COK|CF_ICO, (FPTR)do_save,
  288. //  "savesmap",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_savemap,
  289.     "savetabs",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_savetabs,
  290.     "scanf",         1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_scanf,
  291.     "screenbottom",  0,               CF_VWM, (FPTR)do_screenbottom,
  292.     "screentop",     0,               CF_VWM, (FPTR)do_screentop,
  293.     "scrolldown",    0,               CF_VWM, (FPTR)do_scrolldown,
  294.     "scrollleft",    0,               CF_VWM, (FPTR)do_scroll,
  295.     "scrollright",   0,               CF_VWM, (FPTR)do_scroll,
  296.     "scrollup",      0,               CF_VWM, (FPTR)do_scrollup,
  297.     "select",        1,        CF_VWM|CF_ICO, (FPTR)select_window,      /* HD Rexx */
  298.     "set",           2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_set,
  299.     "setenv",        2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_setenv,
  300.     "setfont",       2,               CF_VWM, (FPTR)do_setfont,
  301.     "setgeometry",   4,               CF_VWM, (FPTR)do_setgeometry,
  302.     "setmacro",      3, CF_VWM|CF_ICO|CF_COK, (FPTR)do_setmacro,
  303.     "setmacrovar",   2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_setmacrovar,
  304.     "setparcol",     1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_setparcol,
  305.     "settoggle",     1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_toggle,
  306.     "settvar",       2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_settvar,
  307.     "sizewindow",    1,        CF_VWM|CF_COK, (FPTR)do_sizewindow,
  308.     "showlog",       0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_showlog,
  309.     "smv",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_setmacrovar,
  310.     "source",        1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_source,
  311.     "sourcebreaks",  1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_sourcebreak,
  312.     "spacing",       1,               CF_VWM, (FPTR)do_setlinedistance,
  313.     "split",         0,                    0, (FPTR)do_split,
  314.     "sub",           2, CF_VWM|CF_ICO|CF_COK, (FPTR)do_namedmathfunc,
  315.     "swap",          1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_swap,
  316.     "swapvar",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_swapVAR,
  317.     "tab",           0,        CF_VWM|CF_COK, (FPTR)do_tab,
  318.     "tabstop",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_tabstop,
  319.     "taskpri",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_taskpri,
  320.     "title",         1,        CF_VWM|CF_ICO, (FPTR)do_title,
  321.     "tlate",         1,               CF_COK, (FPTR)do_tlate,
  322.     "toback",        0, CF_VWM|CF_COK|CF_ICO, (FPTR)do_toback,
  323.     "tofront",       0, CF_VWM|CF_COK|CF_ICO, (FPTR)do_tofront,
  324.     "toggle",        1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_toggle,
  325.     "tomouse",       0,               CF_VWM, (FPTR)do_tomouse,
  326.     "top",           0,               CF_VWM, (FPTR)do_top,
  327.     "tpen",          1,               CF_VWM, (FPTR)do_tpen,
  328.     "unabort",       0, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unabort,
  329.     "unblock",       0,        CF_VWM|CF_ICO, (FPTR)do_block,
  330.     "undeline",      0,                    0, (FPTR)do_undeline,
  331.     "undo",          0,                    0, (FPTR)do_undo,
  332.     "uniconify",     0,        CF_VWM|CF_ICO, (FPTR) uniconify,     /* PATCH_NULL [14 Feb 1993] : added */
  333.     "unjustify",     0,                    0, (FPTR)do_unjustify,
  334.     "unmap",         1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_unmap,
  335.     "unset",         1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_unset,
  336.     "unsetenv",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_unsetenv,
  337.     "unsetmacro",    1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unsetmacro,
  338.     "unsetmacrovar", 1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unsetmacrovar,
  339.     "unsettvar",     1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_unsettvar,
  340.     "up",            0,        CF_VWM|CF_COK, (FPTR)do_up,
  341.     "usekeytable",   1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_use_keytable,
  342.     "usemenustrip",  1, CF_VWM|CF_ICO|CF_COK, (FPTR)do_use_menustrip,
  343.     "vctags",        1,        CF_VWM|CF_ICO, (FPTR)do_ctags,
  344.     "viewmode",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_viewmode,
  345.     "vref",          1,        CF_VWM|CF_ICO, (FPTR)do_refs,
  346.     "vrefctags",     1,        CF_VWM|CF_ICO, (FPTR)do_refctags,
  347.     "while",         2, CF_VWM|CF_COK|CF_ICO, (FPTR)do_if,
  348.     "windowcycling", 1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_windowcyc,
  349.     "wleft",         0,        CF_VWM|CF_COK, (FPTR)do_wleft,
  350.     "wordwrap",      1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_wordwrap,
  351.     "wright",        0,        CF_VWM|CF_COK, (FPTR)do_wright,
  352.     "writeto",       1, CF_VWM|CF_COK|CF_ICO, (FPTR)do_writeto,
  353. };
  354.  
  355. static CONST COMM repcmd =
  356. {
  357.     "repeat",        2, CF_COK|CF_ICO, (FPTR)do_repeat,
  358. };
  359.  
  360.  
  361. /**************************************
  362.        Interne Prototypes
  363. **************************************/
  364.  
  365.  
  366. int do_command (char * str)
  367. {
  368.     char     * arg;
  369.     char     * aux1,
  370.          * aux2,
  371.          * repstr[MAXIA];
  372.     char       quoted;
  373.     WORD       repi = 0;
  374.     long       j;
  375.     WORD       low;
  376.     WORD       high;
  377.     WORD       diff;
  378.     static int level = 0;
  379.     COMM     * comm;
  380. #define DEBUG_FILE  /* Logging on ? */
  381. #ifdef DEBUG_FILE
  382.     static FILE * debug_file = NULL;
  383.  
  384.     if (!debug_file && globalflags.debug)
  385.     debug_file = fopen ("t:XDME.debug", "w");
  386. #endif
  387.  
  388.     if (!str || !*str)
  389.     return (1);
  390.  
  391. #ifdef DEBUG_FILE
  392.     if (debug_file && globalflags.debug)
  393.     fprintf (debug_file, "%s\n", str);
  394. #endif
  395.  
  396. if (globalflags.debug) printf("dcom[%2d|%d]: %s\n", level+1, globalflags.Abortcommand, str);
  397.  
  398.     if (MacroRecord != 0 && level == 0) {       /* PATCH_NULL [14 Feb 1993] : added */
  399.     add_record (str);                       /* PATCH_NULL [14 Feb 1993] : added */
  400.     } /* if */                    /* PATCH_NULL [14 Feb 1993] : added */
  401.  
  402.     if (++level > 20)
  403.     {
  404.     error ("command:\nRecursion too deep");
  405.     --level;
  406.  
  407.     foundcmd = 1;    /* to prevent us from trying an ARexx macro */
  408.  
  409.     return (0);
  410.     }
  411.  
  412.     while ((arg = breakout (&str, "ed, &aux1)) &&
  413.         !(LoopBreak || LoopCont) )                      /* PATCH_BREAK - should be put together */
  414.     {
  415. if (globalflags.debug) printf("loop[%2d|%d] CHECK %s\n",level, globalflags.Abortcommand, arg);
  416.     if (quoted)
  417.     {
  418. if (globalflags.debug) printf("loop[%2d|%d] write %s\n",level, globalflags.Abortcommand, arg);
  419.         if (Ep->viewmode && !globalflags.Comlinemode)               /* PATCH_NULL */
  420.         {
  421. if (globalflags.debug) printf("-- viewmode");
  422.         goto fail;                    /* PATCH_NULL */
  423.         } /* if */                        /* PATCH_NULL */
  424.  
  425.         if (Ep->iconmode)
  426.         uniconify ();
  427.  
  428.         text_write (arg);
  429.         goto loop;
  430.     } /* if (quoted) */
  431.  
  432.     if (isalpha (*arg))
  433.     {
  434.         low  = 0;
  435.         high = sizeof(Comm)/sizeof(Comm[0]) - 1;
  436.  
  437.         do
  438.         {
  439.         j = (low + high)/2;
  440.  
  441.         diff = stricmp (arg, Comm[j].name);
  442.  
  443.         if (!diff)
  444.             break;
  445.  
  446.         if (diff < 0)
  447.             high = j-1;
  448.         else
  449.             low = j+1;
  450.         } while (low <= high);
  451.  
  452.         if (!diff)
  453.         {
  454. if (globalflags.debug) printf("loop[%2d|%d] comm %s\n",level, globalflags.Abortcommand, arg);
  455.  
  456.         comm = &Comm[j];
  457.  
  458.         foundcmd = 1;
  459.  
  460.         av[0] = (UBYTE *)comm->name;
  461.  
  462.         for (j=1; j<=comm->args; j++)
  463.         {
  464.             av[j] = (UBYTE *)breakout (&str, "ed, &aux2);
  465.  
  466.             if (aux2)
  467.             {
  468.             if (repi == MAXIA)
  469.             {
  470.                 free (aux2);
  471.  
  472.                 error ("command:\nToo many args for\n%s", av[0]);
  473.  
  474. if (globalflags.debug) printf("-- varargs Oflow");
  475.  
  476.                 goto fail;
  477.             } else
  478.             {
  479.                 repstr[repi ++] = aux2;
  480.             }
  481.             }
  482.  
  483.             if (!av[j])
  484.             {
  485.             if (j < 2)
  486.                 error ("command:\nBad argument %ld of\n%s", j, av[0]);
  487.             else
  488.                 error ("command:\nBad argument %ld of\n%s %s", j, av[0], av[1]);
  489.  
  490. if (globalflags.debug) printf("-- less args");
  491.             goto fail;
  492.             }
  493.         } /* for all args */
  494.  
  495.         av[j] = NULL;    /* end of arglist */
  496.  
  497. process:
  498.         if ((comm->flags & CF_COK) || !globalflags.Comlinemode)
  499.         {
  500.             if (Ep->viewmode && !globalflags.Comlinemode && !(comm->flags & CF_VWM))   /* PATCH_NULL */
  501.             {
  502. if (globalflags.debug) printf("-- viewmode");
  503.             goto fail;                    /* PATCH_NULL */
  504.             } /* if */                        /* PATCH_NULL */
  505.  
  506.             if (comm->flags & CF_PAR)
  507.             {
  508.             if (Partial)
  509.                 free (Partial);
  510.  
  511.             Partial = (char *)malloc (strlen (str) + 1);
  512.             strcpy (Partial, str);
  513.             str += strlen(str);     /*  skip string */
  514.             } /* if CF_PAR */
  515.  
  516.             if (Ep->iconmode && !(comm->flags & CF_ICO))
  517.             uniconify ();
  518.  
  519. if (globalflags.debug) printf ("comm[%2d|%d] %s/%s\n", level, globalflags.Abortcommand, av[0], av[1]);
  520.  
  521.             (*comm->func)(-1);
  522.         } /* if CF_COK or Not Comlinemode */
  523.  
  524.         if (globalflags.Abortcommand)
  525.         {
  526. if (globalflags.debug) printf("-- aborted");
  527.             goto fail;
  528.         }
  529.  
  530.         goto loop;
  531.         } /* if arg == command */
  532.     } else if (isdigit(*arg))
  533.     {
  534.         av[0] = "repeat";
  535.         av[1] = arg;
  536.         av[2] = (UBYTE *)breakout(&str, "ed, &aux2);
  537.  
  538.         if (aux2)
  539.         {
  540.         repstr[repi ++] = aux2;
  541.         }
  542. if (globalflags.debug) printf("-- repeat");
  543.  
  544.         if (!av[2])
  545.         {
  546.         error ("command:\nBad second argument\nfor short-repeat");
  547.         goto fail;
  548.         }
  549.  
  550.         av[3] = 0;
  551.         comm = &repcmd;
  552.  
  553.         goto process;
  554.     } /* Repeat */
  555.  
  556.     {
  557.         /*
  558.         **    Search for a macro - we had to put that scan
  559.         **    before the checks for menus and keys, as
  560.         **    keys are only checked up to 3 chars
  561.         */
  562.  
  563.         void * macro;
  564.         int    ret;
  565.  
  566.         if (macro = (void*)getmacro(arg))
  567.         {
  568.         int narg = nummacroargs (macro);
  569.  
  570.         /* av[0] = (CHAR *)((NODE*)macro)->ln_Name; */
  571. if (globalflags.debug) printf("loop[%2d|%d] macro %s\n",level, globalflags.Abortcommand, arg);
  572.  
  573.         av[0] = NULL;
  574.  
  575.         foundcmd = 1;
  576.  
  577.         for (j = 1; j <= narg; ++j)
  578.         {
  579.             av[j] = (UBYTE *)breakout (&str, "ed, &aux2);
  580.  
  581.             if (aux2)
  582.             {
  583.             if (repi == MAXIA)
  584.             {
  585.                 free(aux2);
  586.                 error ("macro:\nToo many args for\n%s", av[0]);
  587. if (globalflags.debug) printf("-- M:varargs Oflow");
  588.                 goto fail;
  589.             } else
  590.             {
  591.                 repstr[repi++] = aux2;
  592.             }
  593.             }
  594.  
  595.             if (!av[j])
  596.             {
  597.             error ("macro:\nBad argument %ld of\n%s", j, av[0]);
  598. if (globalflags.debug) printf("-- M:less args");
  599.             goto fail;
  600.             }
  601.         }
  602.  
  603.         av[j] = NULL;    /* end of arglist */
  604.  
  605. if (globalflags.debug) printf ("mac [%2d|%d] %s/%s\n", level, globalflags.Abortcommand, arg, av[1]);
  606.         ret = callmacro(macro);
  607.  
  608.         if (!ret)
  609.         {
  610. if (globalflags.debug) printf("-- M:abort");
  611.             goto fail;
  612.         } /* if no succ */
  613.  
  614.         goto loop;
  615.         } /* if */
  616.     } /* block */
  617.  
  618.     /* Command not found, check for macro    */
  619.     {
  620.         char * cmdstr;
  621.         int    ret;
  622.  
  623.         if ((cmdstr = keyspectomacro(arg)) || (cmdstr = menutomacro(arg)))
  624.         {
  625.         cmdstr = strdup (cmdstr);
  626.  
  627. if (globalflags.debug) printf ("loop[%2d|%d] key %s\n", level, globalflags.Abortcommand, cmdstr);
  628.  
  629.         ret = do_command (cmdstr);
  630.  
  631.         free (cmdstr);
  632.  
  633.         if (ret)
  634.         {
  635.             foundcmd = 1;
  636.             goto loop;
  637.         }
  638.  
  639. if (globalflags.debug) printf("-- K:abort");
  640.  
  641.         goto fail;
  642.         } /* if arg is macro or menu */
  643.     }
  644.  
  645.  
  646. /*
  647. *!  PATCH_JUX (reine gaudi)
  648. *!
  649. *!    Direct assignments of existing vars
  650. *! With that patch something is possible like:
  651. *!    set abc 1 ... abc = 3 (instead of set abc 3)
  652. *!
  653. *! if arg1 is a "=" we search for a variable of the name in arg0
  654. *! if there is such a variable, we assign its value to the value
  655. *! in arg2  (the correct types are used)
  656. *!
  657. *!  But what shall we do, if there was not such a variable???
  658. */
  659.     {
  660.         char * dummy/* = NULL dead assign */;
  661.         int    type  = VAR_NEX;
  662.  
  663.         dummy = str;
  664.  
  665.         while (*dummy && *dummy <33)
  666.         {
  667.         dummy ++;
  668.         } /* while */
  669.  
  670.         if (*dummy == '=')
  671.         {
  672.         dummy ++;
  673.  
  674.         str = dummy;
  675.  
  676.         dummy = GetTypedVar (arg, &type);
  677.  
  678.         if (dummy)
  679.         {
  680.             free (dummy);
  681.  
  682.             dummy = breakout (&str, "ed, &aux2);
  683.  
  684.             if (!dummy)
  685.             {
  686.             error ("Assignment without value");
  687.             goto fail;
  688.             } /* if */
  689.  
  690.             SetTypedVar (arg, dummy, type);
  691.  
  692.             if (aux2)
  693.             {
  694.             free (aux2);
  695.             } /* if */
  696.  
  697.             goto loop;
  698.         } else
  699.         { /* there is no variable of the given name  - WAS sollen wir jetzt machen ? einen Default verwenden ??? */
  700.  
  701.         } /* if */
  702.         } /* if */
  703.     } /* block direct assignment */
  704.  
  705.     /* Command still not found, check for public macro  */
  706.     /* code to be added */
  707.  
  708.     if (do_rxImplied (arg, str))
  709.         error ("command:\nUnknown command\n`%s'", arg);
  710.  
  711. if (globalflags.debug) printf("running into fail");
  712.  
  713. fail:
  714. if (globalflags.debug) printf ("fail[%2d|%d]\n", level, globalflags.Abortcommand);
  715.     --level;
  716.  
  717.     while (--repi >= 0)
  718.         free (repstr[repi]);
  719.  
  720.     if (aux1) free (aux1);
  721.  
  722.     return(0);
  723.  
  724. loop:
  725.     if (aux1) free (aux1);
  726.  
  727.     // aux1 = NULL;      /* PATCH_BREAK - is not necessary */
  728.     } /* while (arg) */
  729.  
  730. /* ret_ok: - point is not necessary */
  731. if (globalflags.debug) printf ("ret1[%2d|%d]\n", level, globalflags.Abortcommand);
  732.  
  733.     --level;
  734.  
  735.     while (--repi >= 0)
  736.     free (repstr[repi]);
  737.  
  738.     // if (aux1) free (aux1); /* PATCH_BREAK - is not necessary */
  739.  
  740.     return(1);
  741. } /* do_command */
  742.  
  743.  
  744. void do_null (void)
  745. {
  746. } /* do_null */
  747.  
  748.  
  749. void do_source (long do_err)
  750. {
  751.     char   buf[MAXLINELEN];
  752.     FILE * fi;
  753.     char * str;
  754.     BPTR   oldlock = CurrentDir(DupLock(Ep->dirlock));
  755.  
  756.     if (fi = fopen(av[1], "r"))
  757.     {
  758.     while (fgets(buf, MAXLINELEN, fi))
  759.     {
  760.         if (buf[0] == '#')
  761.         continue;
  762.         for (str = buf; *str; ++str)
  763.         {
  764.         if (*str == 9)
  765.             *str = ' ';
  766.         }
  767.  
  768.         if (str > buf && str[-1] == '\n')
  769.         str[-1] = 0;
  770.  
  771.         do_command(buf);
  772.  
  773.         if (globalflags.SourceBreaks)                                   /* PATCH_NULL */
  774.         {
  775.         if (globalflags.Abortcommand || LoopBreak || LoopCont)      /* PATCH_NULL */
  776.         {
  777.             break;                    /* PATCH_NULL */
  778.         } /* if */                    /* PATCH_NULL */
  779.         } else                        /* PATCH_NULL */
  780.         {
  781.         globalflags.Abortcommand = 0;        /* PATCH_NULL */
  782.         LoopBreak    = 0;            /* PATCH_NULL */
  783.         LoopCont     = 0;            /* PATCH_NULL */
  784.         } /* if */                        /* PATCH_NULL */
  785.     }
  786.     fclose(fi);
  787.     } else
  788.     {
  789.     if (do_err)
  790.     {
  791.         error ("source:\nFile `%s'\nnot found", av[1]);
  792.     }
  793.     }
  794.  
  795.     UnLock(CurrentDir(oldlock));
  796. } /* do_source */
  797.  
  798.  
  799. void do_quit (void)
  800. {
  801.     globalflags.Quitflag = 1;
  802.  
  803.     ActivateWindow (Ep->win);                    /* HD damit aus AREXX */
  804. } /* do_quit */
  805.  
  806.  
  807. void do_quitall (void)
  808. {
  809.     globalflags.Quitflag = 1;
  810.     globalflags.QuitAll = 1;
  811.  
  812.     ActivateWindow (Ep->win);                    /* HD damit aus AREXX */
  813. } /* do_quitall */
  814.  
  815.  
  816. void do_execute (void)
  817. {
  818.     BPTR   oldlock = CurrentDir (Ep->dirlock);
  819.     BPTR   NilFH;
  820.     PROC * proc    = (PROC *)FindTask (NULL);
  821.  
  822.     NilFH = Open ("NIL:", 1006);
  823.  
  824.     if (NilFH)
  825.     {
  826.     void *oldConsoleTask = proc->pr_ConsoleTask;
  827.  
  828.     proc->pr_ConsoleTask = (APTR)BTOCP(NilFH, struct FileHandle *)->fh_Port;
  829.  
  830.     Execute (av[1], NilFH, NilFH);
  831.  
  832.     proc->pr_ConsoleTask = oldConsoleTask;
  833.  
  834.     Close(NilFH);
  835.     } else
  836.     {
  837.     error ("execute:\nNIL:-device required");
  838.     }
  839.  
  840.     CurrentDir(oldlock);
  841. } /* do_execute */
  842.  
  843.  
  844. /*
  845.  *  BREAKOUT()
  846.  *
  847.  *  Break out the next argument.  The argument is space delimited and
  848.  *  might be quoted with `' or (), or single quoted as 'c or )c
  849.  *
  850.  *  Also:    $var        -variable insertion
  851.  *        ^c        -control character
  852.  */
  853.  
  854. char * breakout (char ** ptr, char * quoted, char ** paux)
  855. {
  856.     char * str = *ptr;
  857.     char * base;
  858.     WORD   count;        /* Level of brace */
  859.     char   opc;         /* Open-Char */
  860.     char   clc;         /* Close-Char */
  861.     char   immode;
  862.     char   isaux;
  863.     char   buf[MAXLINELEN];
  864.     WORD   di, i;
  865.  
  866. /* if (debug) printf("bout[  |%d] ? %s\n", globalflags.Abortcommand, str); */
  867.  
  868.     count =
  869.     opc   =
  870.     clc   =
  871.     immode=
  872.     isaux =
  873.     di    = 0;
  874.  
  875.     *quoted = 0;
  876.     if (paux)
  877.     *paux = NULL;
  878.  
  879.     while (*str == ' ')
  880.     ++str;
  881.  
  882.     if (!*str)
  883.     return (NULL);
  884.  
  885.     *ptr = str;
  886.     base = str;
  887.  
  888.     while (*str)
  889.     {
  890.     if (immode)
  891.     {
  892.         if (di != sizeof(buf)-1)
  893.         buf[di++] = *str;
  894.  
  895.         str ++;
  896.         continue;
  897.     }
  898.  
  899.     if (count == 0)
  900.     {
  901.         if (*str == ' ')
  902.         break;
  903.  
  904.         if (*str == '\'' || *str == ')')
  905.         clc = *str;
  906.         else if (*str == '`')
  907.         {
  908.         opc = '`';
  909.         clc = '\'';
  910.         } else if (*str == '(')
  911.         {
  912.         opc = '(';
  913.         clc = ')';
  914.         }
  915.     }
  916.  
  917.     if (*str == opc)
  918.     {
  919.         count ++;
  920.  
  921.         if (str == *ptr)
  922.         {
  923.         *quoted = 1;
  924.         base = ++ str;
  925.         continue;
  926.         }
  927.     }
  928.  
  929.     if (*str == clc)
  930.     {
  931.         count --;
  932.  
  933.         if (count == 0 && *quoted)     /*  end of argument     */
  934.         break;
  935.  
  936.         if (str == *ptr && count < 0)
  937.         {
  938.         immode = 1;
  939.         *quoted = 1;
  940.         base = ++str;
  941.  
  942.         continue;
  943.         }
  944.     }
  945.  
  946.     /*
  947.      *  $varname $(varname) $`varname'.  I.E. three forms are allowed,
  948.      *  which allows one to insert the string almost anywhere.  The
  949.      *  first form names are limited to alpha-numerics, '-', and '_'.
  950.      */
  951.  
  952.     if (*str == '$')
  953.     {
  954.         char * ptr2;
  955.         char * tmpptr;
  956.         char   c,
  957.            ce;
  958.         WORD   len;
  959.  
  960. /* if (debug) printf("bout[  |%d] $ %s\n", globalflags.Abortcommand, str); */
  961.  
  962.         ce = 0;                /*    first form  */
  963.         str ++;                /*    skip $        */
  964.  
  965.         if (*str == '(')                /*  second form */
  966.         {
  967.         ce = ')';
  968.         ++str;
  969.         } else if (*str == '`')         /*  third form  */
  970.         {
  971.         ce = '\'';
  972.         ++str;
  973.         }
  974.  
  975.         ptr2 = str;             /*    start of varname    */
  976.  
  977.         if (ce)                         /*  until end char OR   */
  978.         {
  979.         while (*ptr2 && *ptr2 != ce)
  980.             ptr2 ++;
  981.         } else                /*    smart end-varname   */
  982.         {
  983.         while (isalnum(*ptr2) || *ptr2 == '-' || *ptr2 == '_' )
  984.         {
  985.             ptr2 ++;
  986.         }
  987.         }
  988.  
  989.         len = ptr2 - str;            /*    length of variable  */
  990.         c = *ptr2; *ptr2 = 0;        /*    temp. terminate \0  */
  991.  
  992. /* if (debug) printf("bout[  |%d] var '%s'\n", globalflags.Abortcommand, str); */
  993.  
  994.         if (stricmp(str, "currentdir") == 0)
  995.         {
  996.         *ptr2  = c;
  997.         isaux = 1;
  998.  
  999.         if (NameFromLock(Ep->dirlock, tmp_buffer, sizeof(tmp_buffer)))
  1000.         {
  1001.             i = strlen(tmp_buffer);
  1002.  
  1003.             if (di + i < sizeof(buf)-1)
  1004.             {
  1005.             strcpy (buf + di, tmp_buffer);
  1006.             di += i;
  1007.             }
  1008.         }
  1009.  
  1010.         str += len;
  1011.  
  1012.         if (ce)
  1013.             ++str;
  1014.  
  1015.         continue;
  1016.         } else if (stricmp(str, "path") == 0)
  1017.         {
  1018.         *ptr2 = c;
  1019.         isaux = 1;
  1020.  
  1021.         if (NameFromLock(Ep->dirlock, tmp_buffer, sizeof(tmp_buffer)))
  1022.         {
  1023.             i = strlen (tmp_buffer);
  1024.  
  1025.             if (di + i < sizeof(buf)-1)
  1026.             {
  1027.             strcpy (buf+di, tmp_buffer);
  1028.             di += i;
  1029.             }
  1030.         }
  1031.  
  1032.         str += len;
  1033.         if (ce)
  1034.             ++str;
  1035.  
  1036.         continue;
  1037.         } else if (stricmp(str, "file") == 0)
  1038.         {
  1039.         i = strlen(Ep->name);
  1040.         *ptr2 = c;
  1041.         isaux = 1;
  1042.         if (di + i < sizeof(buf)-1)
  1043.         {
  1044.             movmem(Ep->name, buf + di, i);
  1045.             di += i;
  1046.             buf[di] = 0;
  1047.         }
  1048.         str += len;
  1049.         if (ce)
  1050.             ++str;
  1051.         continue;
  1052.         } else if (stricmp(str, "filename") == 0)
  1053.         {
  1054.         *ptr2 = c;
  1055.         isaux = 1;
  1056.  
  1057.         if (NameFromLock(Ep->dirlock, tmp_buffer, sizeof(tmp_buffer)))
  1058.         {
  1059.             if (AddPart (tmp_buffer, Ep->name, sizeof(tmp_buffer)))
  1060.             {
  1061.             i = strlen (tmp_buffer);
  1062.  
  1063.             if (di + i < sizeof(buf)-1)
  1064.             {
  1065.                 strcpy(buf + di, tmp_buffer);
  1066.                 di += i;
  1067.             }
  1068.             }
  1069.         }
  1070.  
  1071.         str += len;
  1072.         if (ce)
  1073.             ++str;
  1074.         continue;
  1075.         } else if (!stricmp(str, "rexxport"))           /* TJM */
  1076.         {
  1077.         *ptr2 = c;
  1078.         isaux = 1;
  1079.  
  1080.         if (di + strlen(RexxPortName) < sizeof(buf)-1)
  1081.         {
  1082.             strcpy(buf + di, RexxPortName);
  1083.             di += strlen(buf + di);
  1084.         }
  1085.  
  1086.         str += len;
  1087.  
  1088.         if (ce)
  1089.             ++str;
  1090.         continue;
  1091.         } else if (!stricmp(str, "rxresult"))
  1092.         {
  1093.         *ptr2 = c;
  1094.         isaux = 1;
  1095.  
  1096.         if (di + strlen(get_rexx_result()) < sizeof(buf)-1)
  1097.         {
  1098.             strcpy(buf + di, get_rexx_result());
  1099.             di += strlen(buf + di);
  1100.         }
  1101.  
  1102.         str += len;
  1103.  
  1104.         if (ce)
  1105.             ++str;
  1106.         continue;
  1107.         } else if (tmpptr = getvar(str))
  1108.         {
  1109.         ptr2 = tmpptr;
  1110.         str[len] = c;
  1111.         isaux = 1;
  1112.  
  1113.         if (di + strlen(ptr2) < sizeof(buf)-1)
  1114.         {
  1115.             strcpy(buf + di, ptr2);
  1116.             di += strlen(buf + di);
  1117.         }
  1118.  
  1119.         str += len;
  1120.  
  1121.         if (ce)
  1122.             ++str;
  1123.  
  1124.         free(ptr2);
  1125.         continue;
  1126.         }
  1127.  
  1128.         *ptr2 = c;
  1129.         str --;
  1130.  
  1131.         if (ce)
  1132.         str --;
  1133.     } else if (*str == '^' && (str[1] & 0x1F))   /* CTRL-sequence */
  1134.     {
  1135.         str ++;
  1136.         *str &= 0x1F;
  1137.         isaux = 1;
  1138.     } else if (*str == '\\' && str[1])
  1139.     {
  1140.         /* reverted to old code */
  1141. #ifdef NOTDEF
  1142.         if (!count) /* ignore \ */
  1143.         {
  1144.         str ++;
  1145.         } else if (*quoted && count == 1) /* remove it, but check next char */
  1146.         {
  1147. #endif
  1148.         str ++;
  1149. #ifdef NOTDEF
  1150.         isaux = 1;
  1151.         continue;
  1152.         } else /* don't remove it, but also ignore next char */
  1153.         {
  1154.         buf[di ++] = *str ++;
  1155.         }
  1156. #endif
  1157.         isaux = 1;
  1158.     }
  1159.  
  1160.     buf[di ++] = *str ++;
  1161.     } /* while (*str) */
  1162.  
  1163.     buf[di ++] = 0;
  1164.  
  1165.     if (isaux)
  1166.     {
  1167.     *paux = malloc (di);
  1168.     strcpy (*paux, buf);
  1169.     base = *paux;
  1170.     }
  1171.  
  1172.     if (*str)               /*  space ended */
  1173.     {
  1174.     *str = '\0';
  1175.     *ptr = str + 1;     /*    next arg    */
  1176.     } else
  1177.     {
  1178.     *ptr = str;        /*    last arg    */
  1179.     }
  1180.  
  1181.     return (base);
  1182. } /* breakout */
  1183.  
  1184.  
  1185. /******************************************************************************
  1186. *****  ENDE command.c
  1187. ******************************************************************************/
  1188.